home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qbsnip.zip / FDREADY.BAS < prev    next >
BASIC Source File  |  1996-11-16  |  757b  |  27 lines
  1. 'Date: 11-13-96 (19:39)
  2. 'From: Bob Perkins
  3.  
  4. 'Test to see if floppy drive is ready
  5.  
  6. DECLARE FUNCTION chkfd% (drive%)
  7. '$INCLUDE: 'QB.BI'
  8.  
  9. 'Check Drive A:
  10. drive% = 0
  11. IF chkfd%(drive%) THEN PRINT "Drive "; CHR$(drive% + 65); ": not ready"
  12.  
  13. FUNCTION chkfd% (drive%)
  14. DIM regsX AS RegTypeX
  15. chkfd% = -1
  16. DataBuffer$ = STRING$(512, 0)
  17. FOR i% = 1 TO 3
  18.     regsX.ds = -1: regsX.es = VARSEG(DataBuffer$): regsX.bx = SADD(DataBuffer$)
  19.     regsX.cx = 1: regsX.dx = drive%: regsX.ax = &H201
  20.     INTERRUPTX &H13, regsX, regsX    'sector read
  21.     IF (regsX.flags AND 1) = 0 THEN chkfd% = 0: EXIT FOR
  22.     regsX.ax = 0: regsX.bx = -1: regsX.cx = -1: regsX.dx = drive%
  23.     regsX.es = -1: regsX.ds = -1
  24.     INTERRUPTX &H13, regsX, regsX    'reset drive
  25. NEXT i%
  26. END FUNCTION
  27.